home *** CD-ROM | disk | FTP | other *** search
/ PC World Interactive 11 / PC World Interactive 11.iso / share / multimed / MAINACT / DATA1.CAB / Script_Files / convdir.rex < prev    next >
OS/2 REXX Batch file  |  1998-05-04  |  2KB  |  28 lines
  1. /**************************************************************
  2.  *                                                            *
  3.  *                   MainActor Rexx Script                    *
  4.  *                                                            *
  5.  *  Converts all projects inside a directory to AVI. Shows    *   
  6.  *  how to use LoadProjectPattern for automatic loading and   *
  7.  *  converting of whole directories.                          *
  8.  *                                                            *
  9.  *  Last modified: 09/19/97, Written by: Markus Moenig        *
  10.  *                                                            *
  11.  **************************************************************/
  12.  
  13.   filepattern="e:\gfx\anims\quick\*.*"   /* Substitute any other directory here */
  14.  
  15.   DO WHILE LoadProjectPattern(filepattern) =0  /* This loop runs over all files */
  16.    BEGIN
  17.     name=GetProjectInfo("NAME")     /* Name of the project */
  18.     newname=LEFT(name,LENGTH(name)-4,0)  /* Cut off .??? from name */  
  19.     filename="c:\"newname           /* filename, write new files to c:\ */
  20.     format="AVI"                    /* Format */
  21.     codec="Cinepak"                 /* Use Cinepak */
  22.     frames="AllFrames"              /* Save all frames of the anim */
  23.     width=0                         /* Use original width */
  24.     height=0                        /* Use original height */
  25.  
  26.     say "Converting" GetProjectInfo("NAME") "to" filename "as" format "..."
  27.     Save( filename, format, codec, frames, width, height ) /* Save it ... */
  28.   END